xtrace	"poly-cube"
{
	procedure	pcube	l,m,n, p,q,r
	{
		para	l,m,n;
		sim		p,q,r;
		boundary	sphere	0,0,0, sqrt (3)
		{
			poly	è„ñ 
			{
				pt	1,1,1;
				pt	1,-1,1;
				pt	-1,-1,1;
				pt	-1,1,1;
			}
			poly	ë§ñ 1
			{
				pt	1,1,1;
				pt	1,1,-1;
				pt	1,-1,-1;
				pt	1,-1,1;
			}
			poly	ë§ñ 2
			{
				pt	1,-1,1;
				pt	1,-1,-1;
				pt	-1,-1,-1;
				pt	-1,-1,1;
			}
			poly	ë§ñ 3
			{
				pt	-1,1,1;
				pt	-1,1,-1;
				pt	-1,-1,-1;
				pt	-1,-1,1;
			}
			poly	ë§ñ 4
			{
				pt	1,1,1;
				pt	1,1,-1;
				pt	-1,1,-1;
				pt	-1,1,1;
			}
			poly	íÍñ 
			{
				pt	1,1,-1;
				pt	1,-1,-1;
				pt	-1,-1,-1;
				pt	-1,1,-1;
			}
		}
	}
}